object choosedir: Tchoosedir
  Left = 246
  Top = 137
  ActiveControl = SelectButton
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Select a Folder'
  ClientHeight = 221
  ClientWidth = 234
  Color = 3418225
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DriveList: TDriveComboBox
    Left = 16
    Top = 144
    Width = 201
    Height = 19
    Color = 10656960
    DirList = DirList
    TabOrder = 0
  end
  object DirList: TDirectoryListBox
    Left = 16
    Top = 16
    Width = 201
    Height = 121
    Color = 10656960
    ItemHeight = 16
    TabOrder = 1
  end
  object SelectButton: TButton
    Left = 120
    Top = 184
    Width = 99
    Height = 25
    Caption = 'Select'
    Default = True
    ModalResult = 1
    TabOrder = 2
    OnClick = SelectButtonClick
  end
end